1 Loading Data

df <- read.csv("C:/Users/Adam/Downloads/insurance.csv")

2 Q1:

library(ggplot2)
ggplot(df, mapping=aes(region, sex))+
  geom_count(colour="blue")

The region with the highest number of observations is the southeast. This is evident by looking at the plot and seeing the magnitude of the circles in each region, of which the southeast has 170 observations for females in the southeast, and 180 observations for males in the same region.

3 Q2:

ggplot(df, mapping=aes(x=bmi, y=charges, color=smoker))+
geom_point()+
  labs(x="Body Mass Index", y="Dollar Charged")+
  geom_smooth(method="lm", aes(group=smoker))+
  ggtitle("The link between BMI and Charges: Smokers and non-smokers")

We can conclude many things from the scatter plot above. Firstly, we can conclude that there is a positive correlation among smokers and body mass index, where as the bmi increases for the individual, the amount of insurance charges increases. Furthermore, we can conclude that there are two sections among where most of the smokers reside; being from approximately 15 to 30 bmi, and then the amount of charges increases marginally from 30 to 60bmi. In addition to this, most of the smokers, with respect to an increasing body mass index, have a drastically lower amount of insurance charges than those who are smokers, aside from the few outliers which have higher insurance charges which may be due to unobservable factors that are not in our dataset.

4 Q3:

ggplot(df, mapping=aes(x=region, fill=smoker))+
  geom_bar()+
  coord_flip()+
  theme_minimal()+
  geom_text(
    stat = "count" ,
    aes(label=stat(count)),
    hjust=1.5)+
  scale_fill_brewer(palette="Dark2")

5 Q4:

library(plotly)
plot_ly(data=df,
        x=~bmi,
        y=~charges,
        color=~region,
        type="scatter",
        mode="markers")
LS0tDQp0aXRsZTogIkVDT04gMzg4MDogQXNzaWdubWVudCAyIg0KYXV0aG9yOiAiQWRhbSBTYXJkZWxsYSINCg0KZGF0ZTogJ2ByIFN5cy5EYXRlKClgJw0Kb3V0cHV0OiANCiAgaHRtbF9ub3RlYm9vazogDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IHllcw0KICAgIGRmX3ByaW50OiBwYWdlZA0KICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQ0KLS0tDQoNCiMgTG9hZGluZyBEYXRhDQoNCmBgYHtyfQ0KZGYgPC0gcmVhZC5jc3YoIkM6L1VzZXJzL0FkYW0vRG93bmxvYWRzL2luc3VyYW5jZS5jc3YiKQ0KYGBgDQoNCiMgUTE6DQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KZ2dwbG90KGRmLCBtYXBwaW5nPWFlcyhyZWdpb24sIHNleCkpKw0KICBnZW9tX2NvdW50KGNvbG91cj0iYmx1ZSIpDQpgYGANCg0KVGhlIHJlZ2lvbiB3aXRoIHRoZSBoaWdoZXN0IG51bWJlciBvZiBvYnNlcnZhdGlvbnMgaXMgdGhlIHNvdXRoZWFzdC4gVGhpcyBpcyBldmlkZW50IGJ5IGxvb2tpbmcgYXQgdGhlIHBsb3QgYW5kIHNlZWluZyB0aGUgbWFnbml0dWRlIG9mIHRoZSBjaXJjbGVzIGluIGVhY2ggcmVnaW9uLCBvZiB3aGljaCB0aGUgc291dGhlYXN0IGhhcyAxNzAgb2JzZXJ2YXRpb25zIGZvciBmZW1hbGVzIGluIHRoZSBzb3V0aGVhc3QsIGFuZCAxODAgb2JzZXJ2YXRpb25zIGZvciBtYWxlcyBpbiB0aGUgc2FtZSByZWdpb24uDQoNCiMgUTI6DQoNCmBgYHtyfQ0KZ2dwbG90KGRmLCBtYXBwaW5nPWFlcyh4PWJtaSwgeT1jaGFyZ2VzLCBjb2xvcj1zbW9rZXIpKSsNCmdlb21fcG9pbnQoKSsNCiAgbGFicyh4PSJCb2R5IE1hc3MgSW5kZXgiLCB5PSJEb2xsYXIgQ2hhcmdlZCIpKw0KICBnZW9tX3Ntb290aChtZXRob2Q9ImxtIiwgYWVzKGdyb3VwPXNtb2tlcikpKw0KICBnZ3RpdGxlKCJUaGUgbGluayBiZXR3ZWVuIEJNSSBhbmQgQ2hhcmdlczogU21va2VycyBhbmQgbm9uLXNtb2tlcnMiKQ0KYGBgDQoNCldlIGNhbiBjb25jbHVkZSBtYW55IHRoaW5ncyBmcm9tIHRoZSBzY2F0dGVyIHBsb3QgYWJvdmUuIEZpcnN0bHksIHdlIGNhbiBjb25jbHVkZSB0aGF0IHRoZXJlIGlzIGEgcG9zaXRpdmUgY29ycmVsYXRpb24gYW1vbmcgc21va2VycyBhbmQgYm9keSBtYXNzIGluZGV4LCB3aGVyZSBhcyB0aGUgYm1pIGluY3JlYXNlcyBmb3IgdGhlIGluZGl2aWR1YWwsIHRoZSBhbW91bnQgb2YgaW5zdXJhbmNlIGNoYXJnZXMgaW5jcmVhc2VzLiBGdXJ0aGVybW9yZSwgd2UgY2FuIGNvbmNsdWRlIHRoYXQgdGhlcmUgYXJlIHR3byBzZWN0aW9ucyBhbW9uZyB3aGVyZSBtb3N0IG9mIHRoZSBzbW9rZXJzIHJlc2lkZTsgYmVpbmcgZnJvbSBhcHByb3hpbWF0ZWx5IDE1IHRvIDMwIGJtaSwgYW5kIHRoZW4gdGhlIGFtb3VudCBvZiBjaGFyZ2VzIGluY3JlYXNlcyBtYXJnaW5hbGx5IGZyb20gMzAgdG8gNjBibWkuIEluIGFkZGl0aW9uIHRvIHRoaXMsIG1vc3Qgb2YgdGhlIHNtb2tlcnMsIHdpdGggcmVzcGVjdCB0byBhbiBpbmNyZWFzaW5nIGJvZHkgbWFzcyBpbmRleCwgaGF2ZSBhIGRyYXN0aWNhbGx5IGxvd2VyIGFtb3VudCBvZiBpbnN1cmFuY2UgY2hhcmdlcyB0aGFuIHRob3NlIHdobyBhcmUgc21va2VycywgYXNpZGUgZnJvbSB0aGUgZmV3IG91dGxpZXJzIHdoaWNoIGhhdmUgaGlnaGVyIGluc3VyYW5jZSBjaGFyZ2VzIHdoaWNoIG1heSBiZSBkdWUgdG8gdW5vYnNlcnZhYmxlIGZhY3RvcnMgdGhhdCBhcmUgbm90IGluIG91ciBkYXRhc2V0Lg0KDQoNCiMgUTM6DQpgYGB7cn0NCmdncGxvdChkZiwgbWFwcGluZz1hZXMoeD1yZWdpb24sIGZpbGw9c21va2VyKSkrDQogIGdlb21fYmFyKCkrDQogIGNvb3JkX2ZsaXAoKSsNCiAgdGhlbWVfbWluaW1hbCgpKw0KICBnZW9tX3RleHQoDQogICAgc3RhdCA9ICJjb3VudCIgLA0KICAgIGFlcyhsYWJlbD1zdGF0KGNvdW50KSksDQogICAgaGp1c3Q9MS41KSsNCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZT0iRGFyazIiKQ0KYGBgDQoNCiMgUTQ6DQpgYGB7cn0NCmxpYnJhcnkocGxvdGx5KQ0KcGxvdF9seShkYXRhPWRmLA0KICAgICAgICB4PX5ibWksDQogICAgICAgIHk9fmNoYXJnZXMsDQogICAgICAgIGNvbG9yPX5yZWdpb24sDQogICAgICAgIHR5cGU9InNjYXR0ZXIiLA0KICAgICAgICBtb2RlPSJtYXJrZXJzIikNCmBgYA0KDQoNCg0KDQo=